object PieGraphDlg: TPieGraphDlg Left = 44 Top = 113 Width = 578 Height = 413 Caption = 'Summary Graph' Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] PixelsPerInch = 96 Position = poScreenCenter ShowHint = True OnCreate = FormCreate OnShow = FormShow TextHeight = 16 object Chart1: TChart Left = 0 Top = 60 Width = 570 Height = 326 AxisVisible = False Title.Font.Color = clBlue Title.Font.Height = -13 Title.Font.Name = 'Arial' Title.Font.Style = [fsBold, fsItalic] Title.Text.Strings = ( 'TChart Component') Foot.Font.Color = clRed Foot.Font.Height = -12 Foot.Font.Name = 'Arial' Foot.Font.Style = [fsItalic] Foot.Text.Strings = ( '') MarginLeft = 4 MarginRight = 4 MarginBottom = 0 View3dWalls = False Legend.Alignment = laLeft Legend.TextStyle = ltsLeftPercent Legend.TopPos = 0 LeftAxis.Ticks.Color = clGray LeftAxis.TicksInner.Color = clGray LeftAxis.Grid.Color = clScrollBar LeftAxis.Grid.Style = psDot LeftAxis.Axis.Width = 2 LeftAxis.Title.Angle = 90 RightAxis.Ticks.Color = clGray RightAxis.TicksInner.Color = clGray RightAxis.Grid.Color = clScrollBar RightAxis.Grid.Style = psDot RightAxis.Axis.Width = 2 RightAxis.Title.Angle = 270 TopAxis.Ticks.Color = clGray TopAxis.TicksInner.Color = clGray TopAxis.Grid.Color = clScrollBar TopAxis.Grid.Style = psDot TopAxis.Axis.Width = 2 BottomAxis.LabelsAngle = 90 BottomAxis.LabelsSeparation = 0 BottomAxis.LabelsSize = 40 BottomAxis.LabelsFont.Color = clBlack BottomAxis.LabelsFont.Height = -11 BottomAxis.LabelsFont.Name = 'Arial' BottomAxis.LabelsFont.Style = [] BottomAxis.Ticks.Color = clGray BottomAxis.TicksInner.Color = clGray BottomAxis.Grid.Color = clScrollBar BottomAxis.Grid.Style = psDot BottomAxis.Axis.Width = 2 Frame.Visible = False AllowZoom = False AllowPanning = pmNone ClipPoints = False MaxPointsPerPage = 10 Align = alClient TabOrder = 0 OnPageChange = Chart1PageChange end object Panel1: TPanel Left = 0 Top = 0 Width = 570 Height = 60 Align = alTop BevelOuter = bvNone TabOrder = 1 object Label1: TLabel Left = 192 Top = 4 Width = 47 Height = 26 Caption = 'Items Per Page:' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False WordWrap = True end object SpeedButton1: TSpeedButton Left = 228 Top = 28 Width = 25 Height = 25 Hint = 'Update Graph' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 555555555555555555555555555555555555555555FF55555555555559055555 55555555577FF5555555555599905555555555557777F5555555555599905555 555555557777FF5555555559999905555555555777777F555555559999990555 5555557777777FF5555557990599905555555777757777F55555790555599055 55557775555777FF5555555555599905555555555557777F5555555555559905 555555555555777FF5555555555559905555555555555777FF55555555555579 05555555555555777FF5555555555557905555555555555777FF555555555555 59905555555555555777555555555555555555555555555555550000} NumGlyphs = 2 OnClick = SpeedButton1Click end object CheckBox1: TCheckBox Left = 4 Top = 6 Width = 37 Height = 17 Caption = '3D' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False State = cbChecked TabOrder = 0 OnClick = CheckBox1Click end object GraphType: TRadioGroup Left = 44 Top = 0 Width = 61 Height = 56 Caption = 'Chart' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemIndex = 0 Items.Strings = ( 'Bars' 'Pie' 'Lines') ParentFont = False TabOrder = 1 OnClick = GraphTypeClick end object XLabels: TRadioGroup Left = 108 Top = 0 Width = 77 Height = 56 Caption = 'X Axis Labels' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemIndex = 0 Items.Strings = ( 'Horizontal' 'Vertical' 'No Labels') ParentFont = False TabOrder = 2 OnClick = XLabelsClick end object Panel2: TPanel Left = 382 Top = 0 Width = 188 Height = 60 Align = alRight BevelOuter = bvNone TabOrder = 3 object BitBtn1: TBitBtn Left = 4 Top = 30 Width = 89 Height = 25 Hint = 'Previous Page' Caption = '&Previous' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 OnClick = BitBtn1Click Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333333333333333333333333333333333333333333333333FF333333333333 3000333333FFFFF3F77733333000003000B033333777773777F733330BFBFB00 E00033337FFF3377F7773333000FBFB0E000333377733337F7773330FBFBFBF0 E00033F7FFFF3337F7773000000FBFB0E000377777733337F7770BFBFBFBFBF0 E00073FFFFFFFF37F777300000000FB0E000377777777337F7773333330BFB00 000033333373FF77777733333330003333333333333777333333333333333333 3333333333333333333333333333333333333333333333333333333333333333 33333333333333333333333333333333333333333333333333330000} NumGlyphs = 2 end object BitBtn2: TBitBtn Left = 95 Top = 30 Width = 89 Height = 25 Hint = 'Next Page' Caption = '&Next' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 3 OnClick = BitBtn2Click Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333FFF333333333333000333333333 3333777FFF3FFFFF33330B000300000333337F777F777773F333000E00BFBFB0 3333777F773333F7F333000E0BFBF0003333777F7F3337773F33000E0FBFBFBF 0333777F7F3333FF7FFF000E0BFBF0000003777F7F3337777773000E0FBFBFBF BFB0777F7F33FFFFFFF7000E0BF000000003777F7FF777777773000000BFB033 33337777773FF733333333333300033333333333337773333333333333333333 3333333333333333333333333333333333333333333333333333333333333333 33333333333333333333333333333333333333333333333333330000} Layout = blGlyphRight NumGlyphs = 2 end object BitBtn3: TBitBtn Left = 4 Top = 3 Width = 89 Height = 25 Hint = 'Print Graph' Caption = 'P&rint' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 OnClick = BitBtn3Click Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888 8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F 8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F 8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF 03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF 03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0 33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033 33333337FFFF7733333333300000033333333337777773333333} Layout = blGlyphRight NumGlyphs = 2 end object BitBtn4: TBitBtn Left = 95 Top = 3 Width = 89 Height = 25 Hint = 'Close Graph Window' Caption = '&Close' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 Kind = bkOK end end object Edit1: TEdit Left = 192 Top = 32 Width = 33 Height = 20 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] MaxLength = 2 ParentFont = False TabOrder = 4 OnKeyPress = Edit1KeyPress end end object PieSeries1: TPieSeries ColorEachPoint = True ParentChart = Chart1 Marks.Visible = True Marks.Style = smsValue Marks.Arrow.Color = clWhite Marks.ArrowLength = 8 Active = False PieValues.DateTime = False PieValues.Name = 'Y' PieValues.Multiplier = 1.000000000000000000 Left = 504 Top = 352 end object BarSeries1: TBarSeries ColorEachPoint = True ParentChart = Chart1 Marks.Visible = False Marks.Arrow.Color = clWhite Marks.ArrowLength = 20 Active = False BarBrush.Color = clScrollBar XValues.DateTime = False XValues.Name = 'X' XValues.Multiplier = 1.000000000000000000 YValues.DateTime = False YValues.Name = 'Y' YValues.Multiplier = 1.000000000000000000 SeriesColor = clRed Left = 536 Top = 352 end object LineSeries1: TLineSeries ColorEachPoint = True ParentChart = Chart1 Marks.Visible = False Marks.Style = smsValue Marks.Arrow.Color = clWhite Marks.ArrowLength = 8 Active = False SeriesColor = clGreen XValues.DateTime = True XValues.Name = 'X' XValues.Multiplier = 1.000000000000000000 YValues.DateTime = False YValues.Name = 'Y' YValues.Multiplier = 1.000000000000000000 Left = 472 Top = 352 end end